home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume10 / notes-mod.pch < prev    next >
Encoding:
Internet Message Format  |  1987-07-29  |  39.1 KB
  1. Path: uunet!rs
  2. From: rs@uunet.UU.NET (Rich Salz)
  3. Newsgroups: comp.sources.unix
  4. Subject: v10i071:  Patches for NOTESFILES for moderated groups
  5. Message-ID: <736@uunet.UU.NET>
  6. Date: 30 Jul 87 22:24:19 GMT
  7. Organization: UUNET Communications Services, Arlington, VA
  8. Lines: 1316
  9. Approved: rs@uunet.UU.NET
  10.  
  11. Submitted-by: Paul Pomes (CSO, UofIll 217-333-6262) <paul@uxc.cso.uiuc.edu>
  12. Posting-number: Volume 10, Issue 71
  13. Archive-name: notes-mod.pch
  14.  
  15. [  If you run NOTES, then you want to install these patches.  They
  16.    turn posting to moderated groups into mail messages to the
  17.    moderator, provide .signature files, and -- wow! -- it's all
  18.    documented.  --r$  ]
  19.  
  20. The following is an improvement on Rich Salz's notesfile changes that
  21. supported moderated newsgroups/notesfiles.  More details are in the 
  22. README2 file.
  23.  
  24.          Paul Pomes
  25.  
  26. UUCP:     {ihnp4,seismo}!uiucuxc!paul
  27. Internet: paul@uxc.cso.uiuc.edu   BITNET: paul@uiucuxc
  28. MILNET:   paul@uiucuxc.arpa       CSNET:  paul%uxc@uiuc.csnet
  29. US Mail:  UofIllinois, CSO, MC-256, 1304 W Springfield Ave, Urbana, IL  61801
  30.  
  31. #! /bin/sh
  32. # This is a shell archive, meaning:
  33. # 1. Remove everything above the #! /bin/sh line.
  34. # 2. Save the resulting text in a file.
  35. # 3. Execute the file with /bin/sh (not csh) to create:
  36. #    README2
  37. #    diffs.doc
  38. #    diffs.man
  39. #    diffs.src
  40. #    moderators
  41. # This archive created: Wed Jul  1 16:49:52 1987
  42. export PATH; PATH=/bin:/usr/bin:$PATH
  43. if test -f 'README2'
  44. then
  45.     echo shar: "will not over-write existing file 'README2'"
  46. else
  47. cat << \SHAR_EOF > 'README2'
  48. Written  7:27 am  Aug 22, 1985 by sources-request@panda in comp.sources.unix
  49.     Note title: changes to notes
  50.  
  51. Mod.sources:  Volume 2, Issue 36
  52. Submitted by: genrad!mit-eddie!mirror!rs (Rich Salz)
  53.  
  54. This note contains modifications to the latest version of notes, 1.7.
  55.  
  56. The diffs listed below will modify notes (version 1.7, at least) to
  57. understand moderated newsgroups, as well as "local" notesfiles.
  58.  
  59. In a MODERATED notesfile, any attempt to write a note or send mail
  60. is turned into a call that sends mail to the moderator.  For example,
  61. is the MODERATED flag is on for net.announce, any attempt to post
  62. their will instead be sent as mail to mark@cbosgd.att (or whatever).
  63. Note that it is still possible to "Copy" a note into a MODERATED
  64. notesfile.  This can be prohibited by (a) turning off write permission
  65. on the all MODERATED notesfiles, or (b) added some trivial code to
  66. adnote.c.  I did (a); if anyone wants the code for (b), let me know.
  67.  
  68. The mapping of notesfile names to moderators is done in a file
  69. named "moderators" in the notesfile utility directory (default is
  70. /usr/spool/notes/.utilities).  This file contains lines like:
  71.     notesfile_name <spaces_or_tabs> mail_address
  72. Blank lines, or lines starting with '#', are ignored.  Here are
  73. a couple of lines from my "moderators" file:
  74.  
  75. Here are a couple of lines from my .utilties/moderator file:
  76. # This comes from the posting by Gene Spafford
  77. # Correct addresses for mirror systems by R$, 19aug85.
  78. mod.map        wjh12!ihnp4!cbosgd!mark
  79. mod.map.uucp    wjh12!ihnp4!cbosgd!uucpmap
  80. # Here's handling an ARPA gateway'd list
  81. fa.laser-lover        furuta%washington@cca
  82.  
  83. # Here's one that we gateway ourselves
  84. ms.loops        loops-users%berkeley@cca
  85. # Any valid address is ok
  86. ms.prisoner        inmet!masscomp!allegra!sjuvax!ianucci
  87.  
  88. Enough talk, here are the diffs.
  89. NOTE:  THE RCS REVISIONS SHOW ARE WRONG.  I BLEW IT!
  90.  
  91. =======================================================================
  92.  
  93. By Paul Pomes, CSO, Univ of Illinois (paul@uxc.cso.uiuc.edu)
  94. Wed Jul  1 14:02:47 CDT 1987
  95.  
  96. I've applied Rich's changes to the latest edition of notes from the UofI
  97. CS Dept.  A few changes were made:
  98.  
  99.   The M,m keys in a moderated notesfile can send mail to arbitrary
  100.   addresses.  Previously mail went only to the moderator.
  101.  
  102.   A new note/response must be a non-zero size before the user is prompted
  103.   for a signature file.
  104.  
  105.   The nfadmin program has two new flags, M and L, for setting the 
  106.   moderated and local bits in a notesfile.
  107.  
  108.   The notes.1 and nfadmin.8 man pages have been updated to mention the
  109.   new NFSIG environment variable, and the behavior of local/moderated
  110.   notesfiles.
  111.  
  112.   The Notesfile Reference manual has been updated as well.
  113.  
  114. A complete distribution of the virgin sources, plus the RCS recorded changes,
  115. is available for anonymous FTP from uxc.cso.uiuc.edu:pub/Notes.tar.Z .
  116.  
  117. SHAR_EOF
  118. fi
  119. if test -f 'diffs.doc'
  120. then
  121.     echo shar: "will not over-write existing file 'diffs.doc'"
  122. else
  123. cat << \SHAR_EOF > 'diffs.doc'
  124. *** 2.1.old        Wed Jul  1 16:23:05 1987
  125. --- 2.1            Wed Jul  1 16:23:14 1987
  126. ***************
  127. *** 268,274 ****
  128.   .ix
  129.   Read the policy note.
  130.   .ix
  131. ! Check on anonymous and networked status.
  132.   .ix
  133.   Register a complaint/suggestion about notesfiles.
  134.   .ix
  135. --- 268,274 ----
  136.   .ix
  137.   Read the policy note.
  138.   .ix
  139. ! Check on anonymous, networked, local, and moderated status.
  140.   .ix
  141.   Register a complaint/suggestion about notesfiles.
  142.   .ix
  143. ***************
  144. *** 522,534 ****
  145.   After the prompt,
  146.   type the insert command along with the text you wish to enter.
  147.   Write the text to the disk and leave the editor.  The system will prompt
  148. ! you for various options if they are available:  anonymity, director
  149. ! message status, and the note's title.
  150.   
  151.       To write a response to a note type ``w'' while that note or any of
  152.   its responses is displayed. 
  153.   The same steps used to write a base note
  154.   should then be followed.
  155.   
  156.   .ss "Mailing Notesfile Text"
  157.   
  158. --- 522,549 ----
  159.   After the prompt,
  160.   type the insert command along with the text you wish to enter.
  161.   Write the text to the disk and leave the editor.  The system will prompt
  162. ! you for various options if they are available:  signature block, anonymity,
  163. ! director message status, and the note's title.
  164.   
  165.       To write a response to a note type ``w'' while that note or any of
  166.   its responses is displayed. 
  167.   The same steps used to write a base note
  168.   should then be followed.
  169. + 
  170. +     In the case of moderated notesfiles where submissions should be
  171. + sent to the notesfile topic administrator, the behavior of ``w'' is
  172. + changed slightly.
  173. + When writing a new note the notesfile system will prompt to
  174. + say, ``Moderated, send mail to moderator?''
  175. + A response of ``y'' will invoke the mail program with the To: line set
  176. + to the moderator's name.
  177. + The text entered will not be entered into the notesfile.
  178. + Instead a mail message with the text is sent to the topic administrator.
  179. + He or she will check the submission for appropriateness, then insert it
  180. + into the notesfile for distribution.
  181. + 
  182. + Writing a response in a moderated notesfile invokes the mail program without
  183. + prompting.
  184.   
  185.   .ss "Mailing Notesfile Text"
  186.   
  187. *** 2.2.old        Wed Jul  1 16:23:51 1987
  188. --- 2.2            Wed Jul  1 16:23:54 1987
  189. ***************
  190. *** 321,326 ****
  191. --- 321,334 ----
  192.   If unspecified, the system uses a standard set which usually includes
  193.   ``general'' and ``net.general''.
  194.   .ix
  195. + ``NFSIG'' specifies the file name containing a signature block to be included
  196. + at the end of a note or response.
  197. + If this variable is set, notes will prompt whether to include this file
  198. + when the user writes a new note or response.
  199. + The signature block typically contains the user's name and various mail paths
  200. + back to him or her.
  201. + It should be kept small and concise.
  202. + .ix
  203.   ``PAGER'' is the paging program (``more'', ``pg'') which is used for scrolling
  204.   the help files.
  205.   The default paging program is /usr/ucb/more.
  206. *** 3.1.old        Wed Jul  1 16:24:09 1987
  207. --- 3.1            Wed Jul  1 16:24:11 1987
  208. ***************
  209. *** 28,33 ****
  210. --- 28,35 ----
  211.   .ix
  212.   Allow the notesfile to be networked.
  213.   .ix
  214. + Toggle the notesfile's moderated and local flags.
  215. + .ix
  216.   Permit or restrict anonymous notes.
  217.   .ix
  218.   Compress the notesfile.
  219. ***************
  220. *** 56,61 ****
  221. --- 58,65 ----
  222.   (o) Notesfile:   OPEN    Next note in slot: 1
  223.   (n) Networked:   YES    Deleted Notes (holes): 0  
  224.   (A) Is Archive:  NO    Deleted Responses (holes): 0  
  225. + (M) Moderated:   YES
  226. + (L) Local:       NO
  227.   (e) Expiration Threshold: Default
  228.   (E) Expiration Action:    ARCHIVE
  229.   (D) Archive with Dirmsg:  NOCARE   
  230. ***************
  231. *** 78,83 ****
  232. --- 82,88 ----
  233.   
  234.       Options available on this page include:  access lists, policy
  235.   note writing, title & director messages, open/close notesfile,
  236. + moderated & local notesfiles,
  237.   network enabling, anonymous notes, notesfile compress, and delete
  238.   a list of notes.
  239.   
  240. ***************
  241. *** 194,199 ****
  242. --- 199,220 ----
  243.   Arrangements must be made with the notesfile system ``owner'' to do the network
  244.   transfers.
  245.   
  246. + .ss "Moderated Notesfiles"
  247. + 
  248. +     Type ``M'' (``moderated'') to toggle whether a notesfile is moderated
  249. + or not.
  250. + Moderated notesfiles do not allow direct submissions.
  251. + Instead the text entered with a ``w'' command is enclosed in a mail message
  252. + and sent to the topic moderator.
  253. + A list of notesfiles and moderator mail addresses is kept in ~notes/moderators.
  254. + 
  255. + .ss "Local Notes"
  256. + 
  257. +     Type ``L'' (``local'') to toggle whether the notesfile is local
  258. + to the site.
  259. + Local notesfiles don't prompt to include signature files if the NFSIG
  260. + environment variable is set.
  261. + 
  262.   .ss "Anonymous Notes"
  263.   
  264.       Type ``a'' (``anonymous'') to toggle the availability of
  265. ***************
  266. *** 599,602 ****
  267. --- 620,635 ----
  268.   
  269.       Mapping is performed by the transmission program ``nfxmit''.
  270.   The ``nfrcv'' program does not consult this table.
  271. + 
  272. + .ss "Moderated Notesfiles"
  273. + 
  274. +     Moderated notesfiles don't allow direct submission of new notes
  275. + or responses.
  276. + The text entered by a user after a ``w'' command is collected by the mail
  277. + program of choice and sent to the topic moderator.
  278. + A list of notesfile names and moderator mail addresses is kept in the
  279. + file /usr/spool/notes/.utilities/moderators.
  280. + Each line of the file has a notesfile name, white space (tabs or blanks),
  281. + then the mail address of the moderator.
  282. + Any text following a ``#'' is considered a comment.
  283.   
  284. SHAR_EOF
  285. fi
  286. if test -f 'diffs.man'
  287. then
  288.     echo shar: "will not over-write existing file 'diffs.man'"
  289. else
  290. cat << \SHAR_EOF > 'diffs.man'
  291. *** notes.1.old        Wed Jun 24 14:02:30 1987
  292. --- notes.1        Wed Jun 24 14:02:32 1987
  293. ***************
  294. *** 195,200 ****
  295. --- 195,207 ----
  296.   allowing users to use different editors for writing notes and
  297.   for other tools.
  298.   .PP
  299. + Notes and responses to non-local notesfiles will include the file named
  300. + in the
  301. + .I NFSIG
  302. + variable as a signature block.
  303. + .I Notes
  304. + will prompt whether to include it when a new note or response is posted.
  305. + .PP
  306.   Some commonly used commands within the notesfile system are listed below:
  307.   .TP 10
  308.   space
  309. *** nfadmin.8.old    Wed Jun 24 14:02:47 1987
  310. --- nfadmin.8        Wed Jun 24 14:02:48 1987
  311. ***************
  312. *** 47,52 ****
  313. --- 47,70 ----
  314.   Flag this notesfile as a non-archive notesfile.  This does not affect what
  315.   happens to notes when they expire.
  316.   .TP
  317. + -M+
  318. + Flag this notesfile as a moderated notesfile.  This causes commands that
  319. + create new notes or responses to create a mail message to the newsgroup
  320. + moderator instead.  A list of notesfiles and the mail address of the
  321. + moderator is maintained in /usr/spool/notes/.utilities/moderators.
  322. + .TP
  323. + -M-
  324. + Flag this notesfile as a non-moderated notesfile.
  325. + .TP
  326. + -L+
  327. + Flag this notesfile as a local notesfile.  Local notesfiles don't ask
  328. + whether to include a .signature file at the end of a new note or response.
  329. + .TP
  330. + -L-
  331. + Flag this notesfile as a non-local notesfile.  If the NFSIG environment
  332. + variable is set, notes will prompt whether or not to include the signature
  333. + file named by NFSIG at the end of a new note or response.
  334. + .TP
  335.   -e=NN
  336.   Set the expiration time of this notesfile to NN days.  (NN should be replaced
  337.   with a positive number).
  338. SHAR_EOF
  339. fi
  340. if test -f 'diffs.src'
  341. then
  342.     echo shar: "will not over-write existing file 'diffs.src'"
  343. else
  344. cat << \SHAR_EOF > 'diffs.src'
  345. *** /tmp/,RCSt1020325    Wed Jul  1 13:38:12 1987
  346. --- Makefile    Wed Jul  1 13:10:53 1987
  347. ***************
  348. *** 10,22 ****
  349.   #    217-333-7937
  350.   #
  351.   
  352. ! BIN = /usr/local
  353.   MSTDIR = /usr/spool/notes
  354.   ARCHDIR = /usr/spool/oldnotes
  355.   NET = /usr/bin
  356.   AUTOSEQ = autoseq
  357.   NOTES = notes
  358. ! NOTESUID = 10
  359.   NOTESGRP = notes
  360.   ANON = anon
  361.   ANONUID = 4
  362. --- 10,22 ----
  363.   #    217-333-7937
  364.   #
  365.   
  366. ! BIN = /usr/local/bin
  367.   MSTDIR = /usr/spool/notes
  368.   ARCHDIR = /usr/spool/oldnotes
  369.   NET = /usr/bin
  370.   AUTOSEQ = autoseq
  371.   NOTES = notes
  372. ! NOTESUID = 24
  373.   NOTESGRP = notes
  374.   ANON = anon
  375.   ANONUID = 4
  376. ***************
  377. *** 124,130 ****
  378.         pattern.o perms.o recsio.o startup.o expand.o
  379.   NFTIMESTAMP = check.o cursor.o datein.o gname.o gtime.o misc.o miscio.o \
  380.         pattern.o permit.o recsio.o startup.o times.o expand.o \
  381. !       getdate.o perms.o ftime.o
  382.   NFXMIT    = check.o cursor.o dmpnote.o dmpresp.o getnet.o gname.o \
  383.         gtime.o lrsp.o misc.o miscio.o next.o nfalias.o nfsend.o \
  384.         pageout.o pattern.o permit.o perms.o recsio.o \
  385. --- 124,130 ----
  386.         pattern.o perms.o recsio.o startup.o expand.o
  387.   NFTIMESTAMP = check.o cursor.o datein.o gname.o gtime.o misc.o miscio.o \
  388.         pattern.o permit.o recsio.o startup.o times.o expand.o \
  389. !       getdate.o perms.o
  390.   NFXMIT    = check.o cursor.o dmpnote.o dmpresp.o getnet.o gname.o \
  391.         gtime.o lrsp.o misc.o miscio.o next.o nfalias.o nfsend.o \
  392.         pageout.o pattern.o permit.o perms.o recsio.o \
  393. ***************
  394. *** 216,224 ****
  395.       -chgrp $(NOTESGRP) $(UTILITY)/coredump
  396.   #    generate the available notesfile file here - only once!
  397.       echo "available notesfiles" > $(UTILITY)/avail.notes
  398.       touch $(UTILITY)/Dflt-Seq
  399. !     -chown $(NOTES) $(UTILITY)/avail.notes $(UTILITY)/Dflt-Seq
  400. !     -chgrp $(NOTESGRP) $(UTILITY)/avail.notes $(UTILITY)/Dflt-Seq
  401.       chmod 664 $(UTILITY)/avail.notes $(UTILITY)/Dflt-Seq
  402.       touch spool
  403.       @echo Notesfile Spool directories ready
  404. --- 216,225 ----
  405.       -chgrp $(NOTESGRP) $(UTILITY)/coredump
  406.   #    generate the available notesfile file here - only once!
  407.       echo "available notesfiles" > $(UTILITY)/avail.notes
  408. +     cp moderators $(UTILITY)/moderators
  409.       touch $(UTILITY)/Dflt-Seq
  410. !     -chown $(NOTES) $(UTILITY)/moderators $(UTILITY)/avail.notes $(UTILITY)/Dflt-Seq
  411. !     -chgrp $(NOTESGRP) $(UTILITY)/moderators $(UTILITY)/avail.notes $(UTILITY)/Dflt-Seq
  412.       chmod 664 $(UTILITY)/avail.notes $(UTILITY)/Dflt-Seq
  413.       touch spool
  414.       @echo Notesfile Spool directories ready
  415. *** /tmp/,RCSt1020338    Wed Jul  1 13:38:22 1987
  416. --- dropt.c    Wed Jul  1 12:54:59 1987
  417. ***************
  418. *** 24,29 ****
  419. --- 24,31 ----
  420.    *         -4 if the user hit cntrl d ( to total exit)
  421.    *
  422.    *    original author/outliner : Ray Essick may 29, 1981
  423. +  *      added the "moderated" flag:Rich $alz  aug 19, 1985
  424. +  *      added "local" flag, toggle, YorN:    Rich $alz  aug 19, 1985
  425.    *
  426.    */
  427.   
  428. ***************
  429. *** 35,43 ****
  430.               netrow,                    /* networked */
  431.               expirerow,                    /* expire age */
  432.               longrow,                    /* longest ok text */
  433. !             worksetrow;                    /* working set */
  434.   static int  lastrow;
  435.   
  436.   direct (io) struct io_f *io;
  437.   {
  438.       int     i;                        /* scratch */
  439. --- 37,51 ----
  440.               netrow,                    /* networked */
  441.               expirerow,                    /* expire age */
  442.               longrow,                    /* longest ok text */
  443. !             worksetrow,                    /* working set */
  444. !         modrow,                    /* moderated flag */
  445. !         localrow;                    /* local flag */
  446.   static int  lastrow;
  447.   
  448. + #define YorN(c)        ((c) != 0 ? YES : NO)
  449. + static char YES[] = "YES";
  450. + static char NO[] = "NO ";
  451. + 
  452.   direct (io) struct io_f *io;
  453.   {
  454.       int     i;                        /* scratch */
  455. ***************
  456. *** 113,143 ****
  457.           break;                    /* skipt out of the loop */
  458.   
  459.           case 'a':                     /* toggle anonymous option */
  460. !         locknf (io, DSCRLOCK);            /* lock the thing for a minute */
  461. !         getdscr (io, &io -> descr);        /* get up to date descriptor */
  462. !         if (io -> descr.d_stat & ANONOK)
  463. !             io -> descr.d_stat &= NOT ANONOK;
  464. !         else
  465. !             io -> descr.d_stat |= ANONOK;
  466. !         putdscr (io, &io -> descr);
  467. !         unlocknf (io, DSCRLOCK);
  468. !         at (anonrow, 18);
  469. !         printf (io -> descr.d_stat & ANONOK ? "ON " : "OFF");
  470. !         redraw = 0;
  471.           break;
  472.   
  473.           case 'A':                     /* Archive option */
  474. !         locknf (io, DSCRLOCK);            /* lock the thing for a minute */
  475. !         getdscr (io, &io -> descr);        /* get up to date descriptor */
  476. !         if (io -> descr.d_stat & ISARCH)
  477. !             io -> descr.d_stat &= NOT ISARCH;
  478. !         else
  479. !             io -> descr.d_stat |= ISARCH;
  480. !         putdscr (io, &io -> descr);
  481. !         unlocknf (io, DSCRLOCK);
  482. !         at (archrow, 18);
  483. !         printf (io -> descr.d_stat & ISARCH ? "YES" : "NO ");
  484. !         redraw = 0;
  485.           break;
  486.   
  487.           case 'l':                     /* message length */
  488. --- 121,131 ----
  489.           break;                    /* skipt out of the loop */
  490.   
  491.           case 'a':                     /* toggle anonymous option */
  492. !         toggle(io, ANONOK, anonrow);
  493.           break;
  494.   
  495.           case 'A':                     /* Archive option */
  496. !         toggle(io, ISARCH, archrow);
  497.           break;
  498.   
  499.           case 'l':                     /* message length */
  500. ***************
  501. *** 173,183 ****
  502.           unlocknf (io, DSCRLOCK);        /* all done ... */
  503.           at (longrow, 27);
  504.           printf ("%ld bytes   ", io -> descr.d_longnote);
  505. -         redraw = 0;
  506.           break;
  507.   
  508.           case 'c':                     /* compress the notefile */
  509. -         redraw = 0;
  510.           if (io -> descr.d_stat & OPEN)
  511.           {
  512.               at (lastrow, 10);
  513. --- 161,169 ----
  514. ***************
  515. *** 265,271 ****
  516.               printf ("%ld days     ", io -> descr.d_archtime);
  517.               break;
  518.           }
  519. -         redraw = 0;
  520.           break;
  521.   
  522.           case 'W':                     /* working Set size */
  523. --- 251,256 ----
  524. ***************
  525. *** 311,317 ****
  526.               default: 
  527.               printf ("%ld Notes    ", io -> descr.d_workset);
  528.           }
  529. -         redraw = 0;
  530.           break;
  531.   
  532.           case 'E':                     /* keep/delete/default */
  533. --- 296,301 ----
  534. ***************
  535. *** 348,354 ****
  536.               printf ("UNKNOWN");
  537.               break;
  538.           }
  539. -         redraw = 0;
  540.           break;
  541.   
  542.           case 'D':                     /* Archive dirmsg */
  543. --- 332,337 ----
  544. ***************
  545. *** 397,435 ****
  546.               printf ("UNKNOWN  ");
  547.               break;
  548.           }
  549. -         redraw = 0;
  550.           break;
  551.   
  552.           case 'o':                     /* toggle open status */
  553. !         locknf (io, DSCRLOCK);
  554. !         getdscr (io, &io -> descr);
  555. !         if (io -> descr.d_stat & OPEN)
  556. !             io -> descr.d_stat &= NOT OPEN;
  557. !         else
  558. !             io -> descr.d_stat |= OPEN;
  559. !         putdscr (io, &io -> descr);
  560. !         unlocknf (io, DSCRLOCK);
  561. !         at (openrow, 18);
  562. !         printf (io -> descr.d_stat & OPEN ? "OPEN  " : "CLOSED");
  563. !         redraw = 0;
  564.           break;
  565.   
  566.           case 'n':                     /* toggle network status */
  567. !         locknf (io, DSCRLOCK);
  568. !         getdscr (io, &io -> descr);
  569. !         if (io -> descr.d_stat & NETWRKD)
  570. !         {
  571. !             io -> descr.d_stat &= NOT NETWRKD;
  572. !         }
  573. !         else
  574. !         {
  575. !             io -> descr.d_stat |= NETWRKD;
  576. !         }
  577. !         putdscr (io, &io -> descr);
  578. !         unlocknf (io, DSCRLOCK);
  579. !         at (netrow, 18);
  580. !         printf (io -> descr.d_stat & NETWRKD ? "YES" : "NO ");
  581. !         redraw = 0;
  582.           break;
  583.   
  584.   
  585. --- 380,401 ----
  586.               printf ("UNKNOWN  ");
  587.               break;
  588.           }
  589.           break;
  590.   
  591.           case 'o':                     /* toggle open status */
  592. !         toggle (io, OPEN, openrow);
  593.           break;
  594.   
  595. +         case 'M':                     /* toggle moderated status */
  596. +         toggle (io, MODERATED, modrow);
  597. +         break;
  598. + 
  599. +         case 'L':                     /* toggle local status */
  600. +         toggle(io, LOCAL, localrow);
  601. +         break;
  602. + 
  603.           case 'n':                     /* toggle network status */
  604. !         toggle(io, NETWRKD, netrow);
  605.           break;
  606.   
  607.   
  608. ***************
  609. *** 530,536 ****
  610.   
  611.           default: 
  612.           printf ("\07");
  613. -         redraw = 0;
  614.           goto getkey;                /* hit a bad key */
  615.   
  616.       }
  617. --- 496,501 ----
  618. ***************
  619. *** 559,568 ****
  620.       printf (io -> descr.d_stat & OPEN ? "OPEN  " : "CLOSED");
  621.       at (netrow = atrow++, atcol);
  622.       printf ("(n) Networked:   ");            /* at(5,18); */
  623. !     printf (io -> descr.d_stat & NETWRKD ? "YES" : "NO ");
  624.       at (archrow = atrow++, atcol);
  625.       printf ("(A) Is Archive:  ");            /* at(6,18); */
  626. !     printf (io -> descr.d_stat & ISARCH ? "YES" : "NO");
  627.       at (expirerow = atrow++, atcol);
  628.       printf ("(e) Expiration Threshold: ");        /* at (6,27); */
  629.       switch ((int) (io -> descr.d_archtime))
  630. --- 524,539 ----
  631.       printf (io -> descr.d_stat & OPEN ? "OPEN  " : "CLOSED");
  632.       at (netrow = atrow++, atcol);
  633.       printf ("(n) Networked:   ");            /* at(5,18); */
  634. !     printf (YorN(io -> descr.d_stat & NETWRKD));
  635.       at (archrow = atrow++, atcol);
  636.       printf ("(A) Is Archive:  ");            /* at(6,18); */
  637. !     printf (YorN(io -> descr.d_stat & ISARCH));
  638. !     at (modrow = atrow++, atcol);
  639. !     printf ("(M) Moderated:   ");
  640. !     printf (YorN(io -> descr.d_stat & MODERATED));
  641. !     at (localrow = atrow++, atcol);
  642. !     printf ("(L) Local:       ");
  643. !     printf (YorN(io -> descr.d_stat & LOCAL));
  644.       at (expirerow = atrow++, atcol);
  645.       printf ("(e) Expiration Threshold: ");        /* at (6,27); */
  646.       switch ((int) (io -> descr.d_archtime))
  647. ***************
  648. *** 640,646 ****
  649.       atrow = 4;
  650.       atcol = 40;
  651.       at (atrow++, atcol);
  652. !     printf ("Policy Note Exists: %s", io -> descr.d_plcy ? "YES" : "NO");
  653.       at (atrow++, atcol);
  654.       printf ("Next note in slot: %d", io -> descr.d_nnote + 1);
  655.       at (atrow++, atcol);
  656. --- 611,617 ----
  657.       atrow = 4;
  658.       atcol = 40;
  659.       at (atrow++, atcol);
  660. !     printf ("Policy Note Exists: %s", YorN(io -> descr.d_plcy));
  661.       at (atrow++, atcol);
  662.       printf ("Next note in slot: %d", io -> descr.d_nnote + 1);
  663.       at (atrow++, atcol);
  664. ***************
  665. *** 655,658 ****
  666. --- 626,646 ----
  667.       if (atrow > lastrow)
  668.       lastrow = atrow;
  669.       lastrow++;
  670. + }
  671. + 
  672. + toggle(io, flag, row)
  673. +     struct io_f *io;
  674. +     int flag;
  675. +     int row;
  676. + {
  677. +     locknf (io, DSCRLOCK);
  678. +     getdscr (io, &io -> descr);
  679. +     if (io -> descr.d_stat & flag)
  680. +     io -> descr.d_stat &= NOT flag;
  681. +     else
  682. +     io -> descr.d_stat |= flag;
  683. +     putdscr (io, &io -> descr);
  684. +     unlocknf (io, DSCRLOCK);
  685. +     at (row, 18);
  686. +     printf (YorN(io -> descr.d_stat & flag));
  687.   }
  688. *** /tmp/,RCSt1020349    Wed Jul  1 13:38:31 1987
  689. --- gtext.c    Wed Jul  1 12:56:31 1987
  690. ***************
  691. *** 1,5 ****
  692. --- 1,7 ----
  693.   #include "parms.h"
  694.   #include "structs.h"
  695. + #include <sys/types.h>
  696. + #include <sys/stat.h>
  697.   
  698.   #ifdef    RCSIDENT
  699.   static char rcsid[] = "$Header: gtext.c,v 1.7 87/07/01 12:39:33 paul Locked $";
  700. ***************
  701. *** 17,24 ****
  702. --- 19,31 ----
  703.    *    modified again:    rbe 12 nov 81    fix to version 7 and general shtuff
  704.    *    modified a third time to add insert-text for user
  705.    *        Ray Essick    December 1981
  706. +  *    modified to add non-portable way of appending a signature file.
  707. +  *        Rich $alz    July, 1985
  708. +  *    did signatures the "right" way (better, at least) - LOCAL flag
  709. +  *        Rich $alz    August, 1985
  710.    */
  711.   
  712. + extern char hissig[];
  713.   long    gettext (io, where, preface, editflag)
  714.   struct io_f *io;
  715.   struct daddr_f *where;                    /* where we left it */
  716. ***************
  717. *** 29,34 ****
  718. --- 36,42 ----
  719.       register int    c;
  720.       long    count;
  721.       char    fn[20];                    /* scratch file name */
  722. +     struct stat    sbuf;
  723.   
  724.       sprintf (fn, "/tmp/nf%d", getpid ());
  725.       x ((scr = fopen (fn, "w")) == NULL, "gettext: create scratch");
  726. ***************
  727. *** 69,74 ****
  728. --- 77,106 ----
  729.       {
  730.       unlink (fn);                    /* might just be protections */
  731.       return ((long) 0);
  732. +     }
  733. + 
  734. +     (void) fstat (fileno (scr), &sbuf);
  735. +     if (sbuf.st_size > (off_t) 0 && hissig[0]
  736. +      && io -> descr.d_stat & NETWRKD && !(io -> descr.d_stat & LOCAL))
  737. +     {
  738. +     c = askyn ("Add signature (y/n): ");
  739. +     printf ("\r                      \r");
  740. +     if (c == 'y')
  741. +     {
  742. +         FILE * siggy;
  743. + 
  744. +         if ((siggy = fopen (hissig, "r")) == NULL)
  745. +         printf ("Can't find %s", hissig);
  746. +         else
  747. +         {
  748. +         /* Flop to append mode, append, flip back to read */
  749. +         freopen (fn, "a", scr);
  750. +         while ((c = getc (siggy)) != EOF)
  751. +             putc (c, scr);
  752. +         fclose (siggy);
  753. +         freopen (fn, "r", scr);
  754. +         }
  755. +     }
  756.       }
  757.   
  758.       count = pagein (io, scr, where);            /* move text in */
  759. *** /tmp/,RCSt1020354    Wed Jul  1 13:38:35 1987
  760. --- index.c    Wed Jul  1 12:55:09 1987
  761. ***************
  762. *** 20,27 ****
  763. --- 20,33 ----
  764.    *
  765.    *    Original Coding:    Rob Kolstad    Winter 1980
  766.    *    modifications:        Ray Essick    December 1981
  767. +  *    added MODERATED code:    Rich $alz    August 1985
  768. +  *    added LOCAL flag:    Rich $alz    August 1985
  769.    */
  770.   
  771. + static char YES[] = "YES";
  772. + static char NO[] = "NO ";
  773. + #define YorN(c)        ((c) != 0 ? YES : NO)
  774. + 
  775.   indx (io, firstdis, lastdis, respnum)
  776.   struct io_f *io;
  777.   int    *firstdis,
  778. ***************
  779. *** 58,66 ****
  780.   
  781.           case 'W':                     /* this too shall write a note */
  782.           case 'w':                     /* write a note */
  783. !         return addnote (io, NULL, "Edit Note text:", "Note Title: ", NULL, EDIT);
  784. !                             /* do it */
  785.   
  786.           case 'B':                     /* bitch, bitch, bitch */
  787.           if (init (&io2, GRIPES) < 0)        /* no gripe file */
  788.           {
  789. --- 64,77 ----
  790.   
  791.           case 'W':                     /* this too shall write a note */
  792.           case 'w':                     /* write a note */
  793. !         if ( ! (io -> descr.d_stat & MODERATED ) )
  794. !             return addnote (io, NULL, "Edit Note text:", "Note Title: ", NULL, EDIT);
  795. !         if (askyn ("Moderated; send mail to moderator? ") == 'y')
  796. !             mailit(io, (struct daddr_f *)0, (struct auth_f *)0,
  797. !             (struct when_f *)0, (char *)0, MODERATED, 0);
  798. !         return (-1);
  799.   
  800. + 
  801.           case 'B':                     /* bitch, bitch, bitch */
  802.           if (init (&io2, GRIPES) < 0)        /* no gripe file */
  803.           {
  804. ***************
  805. *** 167,175 ****
  806.           else
  807.           {
  808.               at (0, PROMPTMSGX);
  809. !             printf (" Anonymous: %s   Networked: %s",
  810. !                 (io -> descr.d_stat & ANONOK) ? "YES" : "NO",
  811. !                 (io -> descr.d_stat & NETWRKD) ? "YES" : "NO");
  812.               continue;
  813.           }
  814.   
  815. --- 178,190 ----
  816.           else
  817.           {
  818.               at (0, PROMPTMSGX);
  819. !             printf (
  820. !          "Anonymous: %s   Networked: %s   Moderated: %s   Local: %s",
  821. !                 YorN (io -> descr.d_stat & ANONOK),
  822. !                 YorN (io -> descr.d_stat & NETWRKD),
  823. !                 YorN (io -> descr.d_stat & MODERATED),
  824. !                 YorN (io -> descr.d_stat & LOCAL));
  825. ! 
  826.               continue;
  827.           }
  828.   
  829. *** /tmp/,RCSt1020366    Wed Jul  1 13:38:40 1987
  830. --- mailit.c    Wed Jul  1 12:55:11 1987
  831. ***************
  832. *** 20,25 ****
  833. --- 20,27 ----
  834.    *    modified:    Ray Essick    December 1981.
  835.    *    modified again:    Thanks to Malcolm Slaney of Purdue EE dept.
  836.    *        added the SUPERMAILER processing. May 25, 1982
  837. +  *    added code to handle the MODERATED flag.
  838. +  *        rich $alz, mirror systems, august 19, 1985
  839.    *
  840.    */
  841.   
  842. ***************
  843. *** 38,51 ****
  844.       char    fn[20];                    /* hold scratch file name */
  845.       int     f;
  846.       char   *p;
  847. -     int     i;
  848.       FILE * txtfile;
  849.   #ifdef    SUPERMAILER
  850.       char    subject[TITLEN + 20];            /* mailer subject */
  851.   #endif
  852.   
  853. !     if (toauth)
  854.       {
  855.       if (strcmp (author -> aname, "Anonymous") == 0)
  856.       {
  857.           printf ("Can't send to Anonymous\n");
  858. --- 40,70 ----
  859.       char    fn[20];                    /* hold scratch file name */
  860.       int     f;
  861.       char   *p;
  862.       FILE * txtfile;
  863.   #ifdef    SUPERMAILER
  864.       char    subject[TITLEN + 20];            /* mailer subject */
  865.   #endif
  866.   
  867. !     if (toauth == MODERATED)
  868.       {
  869. +     f = 1;
  870. +     toauth = 0;
  871. +     }
  872. +     else
  873. +     f = 0;
  874. +     if (f && io -> descr.d_stat & MODERATED)
  875. +     {
  876. +     if (modaddress (io -> nf, whoto) == 1)
  877. +     {
  878. +         at (0, 1);
  879. +         printf ("\nComplain to a guru; can't find moderator!\007\n");
  880. +         fflush (stdout);
  881. +         sleep (1);
  882. +         return (-1);                /* no letter sent */
  883. +     }
  884. +     }
  885. +     else if (toauth)
  886. +     {
  887.       if (strcmp (author -> aname, "Anonymous") == 0)
  888.       {
  889.           printf ("Can't send to Anonymous\n");
  890. ***************
  891. *** 53,62 ****
  892.           sleep (2);
  893.           return (-1);
  894.       }
  895. -     }
  896. - 
  897. -     if (toauth)
  898. -     {
  899.       if (strcmp (System, author -> asystem) != 0)
  900.       {
  901.   #ifdef    USERHOST
  902. --- 72,77 ----
  903. ***************
  904. *** 189,192 ****
  905. --- 204,246 ----
  906.   #endif    SUPERMAILER
  907.   
  908.       return 0;
  909. + }
  910. + 
  911. + modaddress (notesname, address)
  912. +     char *notesname;
  913. +     char *address;
  914. + {
  915. +     char buff[WDLEN];
  916. +     register FILE *mods;
  917. +     register char *p;
  918. + 
  919. +     sprintf (buff, "%s/%s/moderators", MSTDIR, UTILITY);
  920. + 
  921. +     if ((mods = fopen (buff, "r")) == NULL)
  922. +     {
  923. +     printf ("Can't open moderators file!\n");
  924. +     return 1;
  925. +     }
  926. + 
  927. +     while (fgets ( buff, sizeof buff, mods))
  928. +     {
  929. +     /* read lines of the form <name><whitespace>path; blanks and lines */
  930. +     /* starting with "#" are comments. */
  931. +     if (buff[0] == '\0' || buff[0] == '#'
  932. +      || (((p=index(buff, ' ')) == NULL) && (p=index(buff, '\t')) == NULL))
  933. +         continue;
  934. +     *p++ = '\0';                    /* split into halves */
  935. +     while (*p == ' ' || *p == '\t')
  936. +         p++;                    /* skip whitespace */
  937. +     if (!strcmp (notesname, buff))
  938. +     {
  939. +         strcpy (address, p);
  940. +         address[strlen(address) - 1] = '\0';    /* kill the \n */
  941. +         fclose (mods);
  942. +         return 0;
  943. +     }
  944. +     }
  945. + 
  946. +     fclose (mods);
  947. +     return 1;
  948.   }
  949. *** /tmp/,RCSt1020372    Wed Jul  1 13:38:45 1987
  950. --- main.c    Wed Jul  1 12:55:13 1987
  951. ***************
  952. *** 16,27 ****
  953.    *    Original author: Rob Kolstad    Winter, 1980.
  954.    *    Modifications:    Ray Essick    June, 1981.
  955.    *    Modified more:    Ray Essick    May, 1982.
  956.    *
  957. -  *
  958.    */
  959.   
  960.   
  961.   static int  seqon = NOSEQ;                /* sequencer mode */
  962.   
  963.   main (argc, argv)
  964.   char  **argv;
  965. --- 16,29 ----
  966.    *    Original author: Rob Kolstad    Winter, 1980.
  967.    *    Modifications:    Ray Essick    June, 1981.
  968.    *    Modified more:    Ray Essick    May, 1982.
  969. +  *    modified:    Rich $alz    July, 1985
  970. +  *        To add the hissig (signature file) variable.
  971.    *
  972.    */
  973.   
  974.   
  975.   static int  seqon = NOSEQ;                /* sequencer mode */
  976. + char hissig[WDLEN];                    /* signature file */
  977.   
  978.   main (argc, argv)
  979.   char  **argv;
  980. ***************
  981. *** 60,65 ****
  982. --- 62,69 ----
  983.   /*
  984.    *    grab some variables from the environment
  985.    */
  986. +     if ((p = getenv ("NFSIG")) != 0 && access (p, 04) >= 0)
  987. +     strcpy(hissig, p);                /* his signature file */
  988.       if ((p = getenv ("SHELL")) != 0)
  989.       hisshell = p;                    /* his shell */
  990.       if ((p = getenv ("NFED")) != 0)
  991. *** /tmp/,RCSt1020383    Wed Jul  1 13:38:49 1987
  992. --- nfadmin.c    Wed Jul  1 12:58:15 1987
  993. ***************
  994. *** 21,33 ****
  995.       int     argn;
  996.       struct nflist_f *nfptr;
  997.       int        change, newexp;
  998. !     int        newanon, newopen, newnet, newarch;
  999.       int        newwset, newdir, newact, newlen;
  1000.   
  1001.       startup (argc, argv);                /* common init code */
  1002.   
  1003.       newdir = newact = newwset = newlen = newexp = -2;
  1004. !     newanon = newopen = newnet = newarch = change = 0;
  1005.       for ( argc--, argv++; argc > 0 && argv[0][0] == '-'; argc--, argv++)
  1006.       {
  1007.       switch(argv[0][1])
  1008. --- 21,33 ----
  1009.       int     argn;
  1010.       struct nflist_f *nfptr;
  1011.       int        change, newexp;
  1012. !     int        newanon, newopen, newnet, newarch, newlocal, newmod;
  1013.       int        newwset, newdir, newact, newlen;
  1014.   
  1015.       startup (argc, argv);                /* common init code */
  1016.   
  1017.       newdir = newact = newwset = newlen = newexp = -2;
  1018. !     newanon = newopen = newnet = newarch = newlocal = newmod = change = 0;
  1019.       for ( argc--, argv++; argc > 0 && argv[0][0] == '-'; argc--, argv++)
  1020.       {
  1021.       switch(argv[0][1])
  1022. ***************
  1023. *** 48,53 ****
  1024. --- 48,61 ----
  1025.           change = 1;
  1026.           newopen = newval(argv[0][2]);
  1027.           break;
  1028. +     case 'L':
  1029. +         change = 1;
  1030. +         newlocal = newval(argv[0][2]);
  1031. +         break;
  1032. +     case 'M':
  1033. +         change = 1;
  1034. +         newmod = newval(argv[0][2]);
  1035. +         break;
  1036.       case 'A':
  1037.           change = 1;
  1038.           newarch = newval(argv[0][2]);
  1039. ***************
  1040. *** 151,156 ****
  1041. --- 159,174 ----
  1042.               io.descr.d_stat |= OPEN;
  1043.           else
  1044.               io.descr.d_stat &= ~OPEN;
  1045. +         if (newlocal)
  1046. +         if (newlocal > 0)
  1047. +             io.descr.d_stat |= LOCAL;
  1048. +         else
  1049. +             io.descr.d_stat &= ~LOCAL;
  1050. +         if (newmod)
  1051. +         if (newmod > 0)
  1052. +             io.descr.d_stat |= MODERATED;
  1053. +         else
  1054. +             io.descr.d_stat &= ~MODERATED;
  1055.           if (newarch)
  1056.           if (newarch > 0)
  1057.               io.descr.d_stat |= ISARCH;
  1058. ***************
  1059. *** 210,217 ****
  1060.   
  1061.       if (!flag)
  1062.       {
  1063. !         printf("notesfile title NetW Open Anon Arch   WSet Arch. Keep DirM     #         Max\n");
  1064. !         printf("                -------status------   Size Time  Actn Stat   Notes       Size\n");
  1065.       }
  1066.       flag = 1;
  1067.       switch(d->d_dmesgstat)
  1068. --- 228,235 ----
  1069.   
  1070.       if (!flag)
  1071.       {
  1072. !         printf("    notesfile title     NetW Open Anon Arch Locl Mod    WSet Arch. Keep DirM     #         Max\n");
  1073. !         printf("                        ------------status-----------   Size Time  Actn Stat   Notes       Size\n");
  1074.       }
  1075.       flag = 1;
  1076.       switch(d->d_dmesgstat)
  1077. ***************
  1078. *** 247,255 ****
  1079.       else    sprintf(archtime, "%4d ", d->d_archtime);
  1080.   
  1081.   
  1082. !     printf("%14.14s: %s %s %s %s  %5d %s %s %s   %5d%12d\n",
  1083.           d->d_title, yes(d->d_stat & NETWRKD), yes(d->d_stat & OPEN),
  1084.           yes(d->d_stat & ANONOK), yes(d->d_stat & ISARCH), 
  1085.           d->d_workset, archtime, archkeep, msgstat, d->d_nnote, 
  1086.           d->d_longnote);
  1087.   
  1088. --- 265,274 ----
  1089.       else    sprintf(archtime, "%4d ", d->d_archtime);
  1090.   
  1091.   
  1092. !     printf("%22.22s: %s %s %s %s %s %s  %5d %s %s %s   %5d%12d\n",
  1093.           d->d_title, yes(d->d_stat & NETWRKD), yes(d->d_stat & OPEN),
  1094.           yes(d->d_stat & ANONOK), yes(d->d_stat & ISARCH), 
  1095. +         yes(d->d_stat & LOCAL), yes(d->d_stat & MODERATED), 
  1096.           d->d_workset, archtime, archkeep, msgstat, d->d_nnote, 
  1097.           d->d_longnote);
  1098.   
  1099. *** /tmp/,RCSt1020391    Wed Jul  1 13:38:57 1987
  1100. --- readem.c    Wed Jul  1 12:55:20 1987
  1101. ***************
  1102. *** 19,26 ****
  1103. --- 19,32 ----
  1104.   *    modified    : ray essick may 22, 1981
  1105.   *    modified (again): Ray Essick December 1981
  1106.   *    modified (more):  Ray Essick, February 1982
  1107. + *    added MODERATED:  Rich $alz, August 1985
  1108. + *    added LOCAL and YorN: Rich $alz, August 1985
  1109.   *
  1110.   */
  1111. + static char YES[] = "YES";
  1112. + static char NO[] = "NO ";
  1113. + #define YorN(c)        ((c) != 0 ? YES : NO)
  1114. + 
  1115.   readem (io, readnum, firstdis, resp)
  1116.   struct io_f *io;
  1117.   int    *firstdis;
  1118. ***************
  1119. *** 333,347 ****
  1120.           toauth = 0;
  1121.           wtext = 1;                /* to others with text */
  1122.           goto sendmail;
  1123.           case 'P': 
  1124. -         toauth = 1;
  1125. -         wtext = 1;                /* to author with text */
  1126. -         goto sendmail;
  1127.           case 'p': 
  1128.           toauth = 1;
  1129. !         wtext = 0;                /* to author, no text */
  1130. !         goto sendmail;
  1131. ! 
  1132.       sendmail:                     /* jump to here once set mail parms */
  1133.           if (resp)
  1134.           {
  1135. --- 339,358 ----
  1136.           toauth = 0;
  1137.           wtext = 1;                /* to others with text */
  1138.           goto sendmail;
  1139. +         /* mail to author, possibly with text. */
  1140.           case 'P': 
  1141.           case 'p': 
  1142. + #ifdef NO_Pp_FOR_MODERATED
  1143. +         /* some people may want this */
  1144. +         if (io -> d_descr.d_stat & MODERATED)
  1145. +         {
  1146. +             at (0, 10);
  1147. +             printf ("Moderated; use 'm' or 'M' command\n");
  1148. +             continue;
  1149. +         }
  1150. + #endif NO_Pp_FOR_MODERATED
  1151.           toauth = 1;
  1152. !         wtext = c == 'P';            /* to author with text */
  1153.       sendmail:                     /* jump to here once set mail parms */
  1154.           if (resp)
  1155.           {
  1156. ***************
  1157. *** 454,462 ****
  1158.           if (allow (io, DRCTOK) == 0)
  1159.           {                    /* tell him what's up */
  1160.               at (0, PROMPTMSGX);
  1161. !             printf (" Anonymous: %s   Networked: %s",
  1162. !                 (io -> descr.d_stat & ANONOK) ? "YES" : "NO",
  1163. !                 (io -> descr.d_stat & NETWRKD) ? "YES" : "NO");
  1164.               replot = 0;                /* leave on screen */
  1165.               goto showit;
  1166.           }
  1167. --- 465,476 ----
  1168.           if (allow (io, DRCTOK) == 0)
  1169.           {                    /* tell him what's up */
  1170.               at (0, PROMPTMSGX);
  1171. !             printf (
  1172. !          "Anonymous: %s   Networked: %s   Moderated: %s   Local: %s",
  1173. !                 YorN (io -> descr.d_stat & ANONOK),
  1174. !                 YorN (io -> descr.d_stat & NETWRKD),
  1175. !                 YorN (io -> descr.d_stat & MODERATED),
  1176. !                 YorN (io -> descr.d_stat & LOCAL));
  1177.               replot = 0;                /* leave on screen */
  1178.               goto showit;
  1179.           }
  1180. ***************
  1181. *** 528,533 ****
  1182. --- 542,555 ----
  1183.           case 'W':                     /* write a response with the text */
  1184.           case 'w':                     /* let him write a response */
  1185.           getdscr (io, &io -> descr);        /* get up to date */
  1186. + 
  1187. +         if (io -> descr.d_stat & MODERATED)
  1188. +         {
  1189. +             wtext = c == 'W';
  1190. +             toauth = MODERATED;        /* toauth distinguishes m/w */
  1191. +             goto sendmail;
  1192. +         }
  1193. + 
  1194.           if (allow (io, RESPOK) == 0)
  1195.           {
  1196.               at (0, PROMPTMSGX);
  1197. *** /tmp/,RCSt1020405    Wed Jul  1 13:39:16 1987
  1198. --- structs.h    Wed Jul  1 12:55:22 1987
  1199. ***************
  1200. *** 105,110 ****
  1201. --- 105,112 ----
  1202.   #define        WRITONLY   0100                /* writeonly access when written */
  1203.   #define        ORPHND       0200                /* foster parent */
  1204.   #define        ISARCH       0400                /* is an archive */
  1205. + #define        MODERATED 01000                /* mail to moderator */
  1206. + #define        LOCAL     02000                /* no signature */
  1207.   
  1208.   /*    change these only after modifying the table in access.c        */
  1209.   #define        READOK    01                /* allow user to read */
  1210. SHAR_EOF
  1211. fi
  1212. if test -f 'moderators'
  1213. then
  1214.     echo shar: "will not over-write existing file 'moderators'"
  1215. else
  1216. cat << \SHAR_EOF > 'moderators'
  1217. # Local lists
  1218. #
  1219. cso.sysnet            sysnet@uxc.cso.uiuc.edu
  1220. cso.network            network@uxc.cso.uiuc.edu
  1221. cso.beer            beer@uiucvmd
  1222. beer                beer@uiucvmd
  1223. #
  1224. # Mailing lists
  1225. #
  1226. ai-ed                ai-ed@sumex.stanford.edu
  1227. aidigest            AIList@stripe.sri.com
  1228. bind                bind@ucbarpa.Berkeley.EDU
  1229. brl-cad                cad@brl.arpa
  1230. cs-lex                cs-lex@red.rutgers.edu
  1231. csnetforum            csnet-forum@sh.cs.net
  1232. firearms            firearms@seismo.css.gov
  1233. gwmon                gwmon@sh.cs.net
  1234. hyper-ip            hy-people@ames-nasb.arpa
  1235. ineng-tf            ineng-tf@venera.isi.edu
  1236. info-apple            info-apple@brl.arpa
  1237. info-cpm            info-cpm@amsaa.arpa
  1238. info-gcc            info-gcc@prep.ai.mit.edu
  1239. info-isi            info-isi@lownlab.harvard.edu
  1240. info-law            info-law@brl.arpa
  1241. info-postscript            info-postscript@sushi.stanford.edu
  1242. info-proteon            info-proteon@uxc.cso.uiuc.edu
  1243. info-sequent            info-sequent@j.cc.purdue.edu
  1244. mh-users            mh-users@ics.uci.edu
  1245. mhs                arpa-mhs@nrtc.northrop.com
  1246. nfsnet                nsfnet@SH.CS.NET
  1247. nsfnet-routing            nsfnet-routing@mcr.umich.edu
  1248. parsym                parsym@sumex.stanford.edu
  1249. prologdigest            prolog@score.stanford.edu
  1250. pyramid                info-pyramid@mimsy.umd.edu
  1251. sec-list            sec-request@isis.uucp
  1252. security            security@rutgers.edu
  1253. supercomputer            supercomputer@nyu.arpa
  1254. tcp-ip                tcp-ip@sri-nic.arpa
  1255. texhax                TeXhax@score.stanford.edu
  1256. theory                theory@wisc.rsch.edu
  1257. tr-list                trlist@smu.csnet
  1258. unix-tex            unix-tex@ward.cs.washington.edu
  1259. utah-toolkit            toolkit@cs.utah.edu
  1260. video-tech            video-tech@simtel20.arpa
  1261. #
  1262. # Net-wide lists
  1263. #
  1264. comp.ai.digest             ailist@stripe.sri.com
  1265. comp.binaries.amiga        amiga-binaries-request@j.cc.purdue.edu
  1266. comp.binaries.atari.st        atari-sources@imagen.uucp
  1267. comp.binaries.mac         macintosh@felix.uucp
  1268. comp.bugs.4bsd.ucb-fixes    ucb-fixes@okeeffe.berkeley.edu
  1269. comp.compilers             compilers@ima.uucp
  1270. comp.dcom.telecom         telecom@xx.lcs.mit.edu
  1271. comp.doc             archive@brl.arpa
  1272. comp.doc.techreports         trlist@smu.uucp
  1273. comp.graphics.digest         info-graphics@ads.arpa
  1274. comp.laser-printers        laser-lovers@brillig.umd.edu
  1275. comp.mail.elm            elm-info@hplabs.hp.com
  1276. comp.mail.maps             postmap@cbosgd.att.com
  1277. comp.newprod             newprod@cbosgd.att.com
  1278. comp.org.fidonet         pozar@hoptoad.uucp
  1279. comp.os.os9             os9@cbosgd.att.com
  1280. comp.os.research         mod-os@sdcsvax.ucsd.edu
  1281. comp.protocols.kermit         info-kermit@cu20b.columbia.edu
  1282. comp.risks             risks@csl.sri.com
  1283. comp.society             comp-soc@hplabs.hp.com
  1284. comp.sources.amiga        amiga-sources-request@j.cc.purdue.edu
  1285. comp.sources.atari.st        atari-sources@imagen.uucp
  1286. comp.sources.games         games@tekred.tek.com
  1287. comp.sources.mac         macintosh@felix.uucp
  1288. comp.sources.misc        sources-misc@ncoast.uucp
  1289. comp.sources.unix         sources@uunet.uu.net
  1290. comp.std.c             std-c@cbosgd.att.com
  1291. comp.std.misc             mark@cbosgd.att.com
  1292. comp.std.mumps             std-mumps@plus5.com
  1293. comp.std.unix            std-unix@sally.utexas.edu
  1294. comp.sys.ibm.pc.digest         info-ibmpc@c.isi.edu
  1295. comp.sys.mac.digest         info-mac@sumex-aim.stanford.edu
  1296. comp.sys.masscomp         masscomp@soma.uucp
  1297. comp.sys.m68k.pc        info-68k@ucbvax.berkeley.edu
  1298. comp.sys.sequent        info-sequent@j.cc.purdue.edu
  1299. comp.sys.sun             sun-spots@rice.edu
  1300. comp.sys.workstations        works@red.rutgers.edu
  1301. comp.text.desktop        desktop@plaid.sun.com
  1302. comp.unix             modunix@cbosgd.att.com
  1303. misc.handicap            handicap@bunker.uucp
  1304. misc.psi             mod-psi@ulowell.edu
  1305. news.announce.conferences    conferences@hplabs.hp.com
  1306. news.announce.important     announce@cbosgd.att.com
  1307. news.announce.newusers         usenet@gatech.edu
  1308. news.lists            usenet@gatech.edu,rick@seismo.css.gov
  1309. rec.arts.movies.reviews        movies@mtgzy.att.com
  1310. rec.food.recipes         mod-recipes@decwrl.dec.com
  1311. rec.guns             jkh@opal.berkeley.edu
  1312. rec.mag.otherrealms         fanzine@plaid.sun.com
  1313. rec.music.gaffa         gaffa-post@eddie.mit.edu
  1314. soc.human-nets             human-nets@red.rutgers.edu
  1315. soc.politics            poli-sci@rutgers.edu
  1316. soc.politics.arms-d        arms-d@xx.lcs.mit.edu
  1317. soc.religion.christian         christian@topaz.rutgers.edu
  1318. SHAR_EOF
  1319. fi
  1320. exit 0
  1321. #    End of shell archive
  1322. -- 
  1323.  
  1324. Rich $alz            "Anger is an energy"
  1325. Cronus Project, BBN Labs    rsalz@bbn.com
  1326. Moderator, comp.sources.unix    sources@uunet.uu.net
  1327.